! DemoEnglishSample.alt
! Draw a pair of wheel teeth.

! In this demonstration, the module and screen
! resolution are in inches and pixel/inch respectively.

VAR
	pi := 3.141592654

! Create a window for the plot

	VAR g  := GraphWindow.new[8096]
		.at[400, 400]
		.setName['Cycloidal Gear Teeth']

! Specify the window view

	g.setMag[150.0]
	g.setPitch[1.0/90.0]

! Create a wheel blank

	VAR w := Wheel.new

! Design a tooth 

	w.setGeometry[0.026/pi, 60, 7]

! Generate a 400 point plot

	w.generate[400]

! Copy the the points from the wheel to the window

	w.plot[g]

! Draw the window on the screen

	g.draw
